/* GUI CONVERTED from reiq03b.p (converter v1.75) Fri May 18 00:23:11 2001 */
/* reiq03b.p - Repetitive                                                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                       */
/* All rights reserved worldwide.  This is an unpublished work.              */
/* $Revision: 1.3.1.3 $                                                              */
/*V8:ConvertMode=Report                                                      */
/* REVISION: 8.6      CREATED      : 10/21/97   BY: bvm  *K13K*              */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane         */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan        */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane  */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   BY: *N0KP* myb               */
/* Old ECO marker removed, but no ECO header exists *F0PN*                   */
/* Old ECO marker removed, but no ECO header exists *M17P*                   */
/* $Revision: 1.3.1.3 $    BY: Vandna Rohira  DATE: 05/16/01 ECO: *M17P*             */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* SUBCONTRACT SHIPPER/CONTAINER INQUIRY SUBPROGRAM */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

{mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE reiq03b_p_1 "Operation!Ref"
/* MaxLen: Comment: */

&SCOPED-DEFINE reiq03b_p_2 "Item Number!Lot/Serial"
/* MaxLen: Comment: */

&SCOPED-DEFINE reiq03b_p_3 "ID!Site"
/* MaxLen: Comment: */

&SCOPED-DEFINE reiq03b_p_4 "ID"
/* MaxLen: Comment: */

&SCOPED-DEFINE reiq03b_p_5 "Work Order ID!Location"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

{wbrp02.i}

define input parameter abs_recid as recid.
define input parameter indent_ct as integer.
define new shared frame c.
define variable indent_id as character format "x(12)" label {&reiq03b_p_4}.

FORM /*GUI*/ 
   indent_id    column-label {&reiq03b_p_3}
   abs_order    column-label {&reiq03b_p_5}
   abs_item     column-label {&reiq03b_p_2}
   abs_line     column-label {&reiq03b_p_1}
   abs_qty      format "->,>>>,>>9.9<<<<<<<<"
   pt_um
with STREAM-IO /*GUI*/  frame c down width 80 attr-space.

/* SET EXTERNAL LABELS */
setFrameLabels(frame c:handle).

{gprun.i ""reiq03a.p"" "(input abs_recid, input indent_ct)"}

{wbrp04.i}
